home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / programming / languages / cleo.lzh / Cleo / examples / array_sh.cl next >
Encoding:
Text File  |  1993-01-24  |  392 b   |  24 lines
  1. program Essai_Procedure;
  2.  
  3. var
  4.     n           : integer;
  5.     tab1: array ['A'..'Z'] of char;
  6. begin
  7.  
  8.     writeln('                 Exemple de PROCEDURE');
  9.     n :='A';
  10.     while n<='A'+10 do
  11.       begin
  12.         tab1[n]:=n;
  13.         n := n+1;
  14.       end;
  15.  
  16.     n :='A';
  17.     repeat
  18.         begin
  19.             writeln(tab1[n]);
  20.             n := n+1;
  21.         end;
  22.     until n>10+'A';
  23.     writeln;
  24. end.